home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  5KB  |  165 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE  4 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                  (null)(null)4 WAIT
  9. 42 PRINT"[150]               [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 4 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 POKE53280,0:POKE53281,0:POKE646,3
  15. 54 GOSUB600
  16. 56 POKE53280,3:POKE53281,15:POKE646,0:POKE53272,21
  17. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0:
  18. 60 LINE=LINE+1:PRINT"[147] TT4  EXERCISE:"TAB(2)LINE"OF 17"TAB(28)"ERRORS:"Q
  19. 62 FOR K=1 TO 17
  20. 64 READ E$(K)
  21. 66 PRINT" TYPE CORRECTLY, THEN PRESS RETURN[146]"
  22. 68 PRINT" ";E$(K)
  23. 70 PRINT"[144]"
  24. 72 READ F$(K)
  25. 74 POKE198,1:POKE631,34:INPUT C$
  26. 76 IF C$=F$(K) THEN 90
  27. 78 PRINT" **** NOT CORRECT - REPEAT - ERRORS:"G"[144]":GOSUB2050:GOSUB710
  28. 80 Q=Q+1:G=G+1
  29. 82 IF Q=4 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  30. 84 GOTO 74
  31. 90 PRINT"[156]              CORRECT![144]":GOSUB2000:GOSUB710:P=P+1
  32. 92 IFP=17THEN RESTORE:GOTO300
  33. 94 GOTO60
  34. 99 REM DATA FOR EXERCISES
  35. 100 DATA" SELL. SELL. SELL. SELL. SELL.","SELL. SELL. SELL. SELL. SELL."
  36. 105 DATA" FELL. FELL. FELL. FELL. FELL.","FELL. FELL. FELL. FELL. FELL."
  37. 110 DATA" SEE. SEE. SEE. SEE. SEE. SEE.","SEE. SEE. SEE. SEE. SEE. SEE."
  38. 115 DATA" SEA. SEA. SEA. SEA. SEA. SEA.","SEA. SEA. SEA. SEA. SEA. SEA."
  39. 120 DATA" FEEL. FEEL. FEEL. FEEL. FEEL.","FEEL. FEEL. FEEL. FEEL. FEEL."
  40. 125 DATA" LED. LED. LED. LED. LED. LED.","LED. LED. LED. LED. LED. LED."
  41. 130 DATA" LEAD. LEAD. LEAD. LEAD. LEAD.","LEAD. LEAD. LEAD. LEAD. LEAD."
  42. 135 DATA" FED. FED. FED. FED. FED. FED.","FED. FED. FED. FED. FED. FED."
  43. 140 DATA" FEED. FEED. FEED. FEED. FEED.","FEED. FEED. FEED. FEED. FEED."
  44. 145 DATA" LESS. LESS. LESS. LESS. LESS.","LESS. LESS. LESS. LESS. LESS."
  45. 150 DATA" DEAF. DEAF. DEAF. DEAF. DEAF.","DEAF. DEAF. DEAF. DEAF. DEAF."
  46. 155 DATA" SAFE. SAFE. SAFE. SAFE. SAFE.","SAFE. SAFE. SAFE. SAFE. SAFE."
  47. 160 DATA" DESK. DESK. DESK. DESK. DESK.","DESK. DESK. DESK. DESK. DESK."
  48. 165 DATA" LAKE. LAKES. LAKE. LAKES. LAKE.","LAKE. LAKES. LAKE. LAKES. LAKE."
  49. 170 DATA" SALE. SALES. SALE. SALES. SALE.","SALE. SALES. SALE. SALES. SALE."
  50. 175 DATA" DESK SALES FELL. DESK SALES FELL.","DESK SALES FELL. DESK SALES FELL."
  51. 180 DATA" SEE DAD SELL. SEE ALL DADS SELL.","SEE DAD SELL. SEE ALL DADS SELL."
  52. 298 :
  53. 299 REM FINAL INSTRUCTIONS
  54. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  55. 305 POKE53280,0:POKE53281,0:POKE646,7
  56. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 4.":GOSUB710
  57. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  58. 317 PRINT"[145]"VAL(TI$)
  59. 320 GOSUB720
  60. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  61. 330 [141]740
  62. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED
  63. 340 PRINT"  TWICE BEFORE ADVANCING TO MODULE 5."
  64. 345 GOSUB730
  65. 350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
  66. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null).
  67. 358 GETR$:IFR$<>CHR$(32)THEN360
  68. 360 PRINT"[147]  [217]OU HAVE A CHOICE:
  69. 362 [153]"  (null)RESS  R WAIT TO REPEAT MODULE 4
  70. 364 PRINT"  [208]RESS  C [146] TO GO TO MODULE 5
  71. 366 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
  72. 368 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN368
  73. 370 IFR$="R"THEN 10
  74. 372 IFR$="M"THEN384
  75. 374 RESTORE
  76. 376 PRINT"[147]  [204]OADING MODULE 5
  77. 378 [147]"TT5",8
  78. 380 [138]
  79. 382 [128]
  80. 384 [140]
  81. 386 [153]"LOAD  (null)OADING DISK MENU
  82. 388 LOAD"MENU",8
  83. 390 RUN
  84. 392 END
  85. 399 :
  86. 400 REM START AGAIN
  87. 410 POKE53280,0:POKE53281,0:POKE646,10
  88. 420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB710
  89. 430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  90. 440 [141]750:[153]"LOAD"
  91. 450 [142]
  92. 598 :
  93. 599 [143] INSTRUCTIONS FOR MODULE
  94. 600 [153]"LOAD  (null)ODULE 4 INTRODUCES THE  VAL WAIT KEY."
  95. 605 [153]"  DEF   WAITPRINT   WAIT   WAITSYS      WAITOPEN      WAIT   WAITPRINT   WAITDEF   WAIT
  96. 610 PRINT"   [150]   [146][153]   [146] [197] [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
  97. 615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT  WAITOPEN      MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
  98. 620 [153]"     DEF   WAITPRINT   WAIT   WAITSYS      WAITOPEN       WAIT   WAITPRINT . WAITDEF   WAIT
  99. 625 PRINT"[155]                 [211][208][193][195][197]      [146]
  100. 630 [141]720
  101. 635 [153]"OPEN  (null)SE YOUR  STR$ WAIT FINGER TO PRESS THE         VAL WAIT KEY."
  102. 650 [153]"  PEEKE SURE YOUR (null)(null)RIGHT$(null)(null)(null)  ASC WAIT AND  MID$ WAIT         FINGERS CAN ";
  103. 655 [153]"FIND THEIR LEFT$(null)(null)VAL KEYS.
  104. 660 GOSUB720:PRINT"[154]        [208]RESS  [211][208][193][195][197] [146] TO START[159]"
  105. 665 GETR$:IFR$<>CHR$(32)THEN665
  106. 670 RETURN
  107. 700 REM TIME DELAYS
  108. 710 FORT=1TO1000:NEXT:RETURN
  109. 720 FORT=1TO2000:NEXT:RETURN
  110. 730 FORT=1TO3000:NEXT:RETURN
  111. 740 FORT=1TO4000:NEXT:RETURN
  112. 750 FORT=1TO5000:NEXT:RETURN
  113. 899 REM END OF MODULE FLASH
  114. 900 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  115. 905 POKE54272,220:FOR T=15 TO 1 STEP-1
  116. 910 POKE54273,T:POKE53281,T
  117. 915 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
  118. 920 POKE54273,T:POKE53280,T
  119. 925 FORT1=1 TO 5:NEXT T1:NEXT T
  120. 930 POKE54276,0:POKE54273,0:POKE54272,0
  121. 936 RETURN
  122. 1998 :
  123. 1999 REM <YES> SOUND
  124. 2000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  125. 2005 POKE54296,15:POKE54277,42:POKE54278,250
  126. 2010 POKE54276,23:POKE54273,23:POKE54272,181
  127. 2015 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  128. 2020 POKE54296,0:RETURN
  129. 2048 :
  130. 2049 REM <NO> SOUND
  131. 2050 S=54272:FORE=STOS+28:POKEE,0:NEXT
  132. 2055 POKE54296,15:POKE54277,18:POKE54278,242
  133. 2060 POKE54276,33:POKE54273,4:POKE54272,48
  134. 2063 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO800:NEXT
  135. 2065 FORE=STOS+28:POKEE,0:NEXT
  136. 2070 POKE54276,0:POKE54273,0:POKE54272,0
  137. 2075 POKE54296,0:RETURN
  138. 2098 :
  139. 2099 REM <END OF EXERCISE> SOUND
  140. 2100 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  141. 2105 POKE54272,220:FORT=50TO1STEP-1
  142. 2110 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO30
  143. 2115 POKE54273,T:POKE53280,T
  144. 2120 FORT1=1TO5:NEXTT1:NEXTT
  145. 2125 POKE54276,0:POKE54273,0:POKE54272,0
  146. 2130 RETURN
  147. 2148 :
  148. 2149 REM <WHOOPING> SOUND
  149. 2150 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
  150. 2155 POKE54277,8:POKE54278,255:POKE54276,23
  151. 2160 FORZ=1TO3:F1=2
  152. 2165 FORY=1TO3:F2=8
  153. 2170 POKE54273,F1
  154. 2175 FORX=1TO5:POKE54287,F2
  155. 2180 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
  156. 2185 FORW=1TO10:POKE54287,F2
  157. 2190 F2=F2*1.05:NEXT W:NEXT Z:POKE54278,15
  158. 2195 RETURN
  159. 4999 :
  160. 5000 REM * IN MEMORY OF RAD JANJIC *                     RIP 87:11:26
  161. 5005 :
  162. 5010 REM DESIGNED BY W H CUMBERLAND 87:12:21/88:04:24
  163. 5020 REM THANKS TO JIM BUTTERFIELD
  164. 5025 REM ADVISE WHC [416/278 7687] OF ANY IMPROVEMENTS OR SUGGESTIONS
  165.